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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL at CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESER 


THIS SOFTWARE is pyanrguce UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE ee OF SUCH pias SE_ AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF oy a BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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® 
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TRANSFERRED. . 
* 
* 
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® 
* 
= 
* 
* 
* 
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SSsoooooooooeoSS 
Oo 
Oe ad od 


: THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

BS CORPORATION. 
80 DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
444 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
000 RASA KAAAEKAATKAESRAAKAARAAAARARAAAAARAAAAAAARAAAARAAAAAAAAAARAAAARAERAEAAAEAAEEAEEEE 
00 
800 : 

45 ; FACILITY: SET CLUSTER 
4 ; ABSTRACT: Subroutines which run at elevated IPL for SET CLUSTER 
000 ; AUTHOR: Paul R. Beck 

‘ o 

BSS ; DATE: 19=F EB-1984 

1 ° 

; REVISION HISTORY: 


v03-001 DWT0205 David W. Thiel 26-Mar-1984 
Revise interface to connection manager. 


; Define offsets and constants 

SIPLDEF 

SCLUBDEF 

SCSBDEF 

SSBODEF 

-PSECT SETSCODE BYTE ,.RD,NOWRT ,EXE 
: Define timer for 1/10 second 


FFFFFFFF FFFOBDCO ONE_TENTH: .LONG -1#1000*1000*1, - 


Be Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Se Se Se Sse Se Ge Se Se Ge Se Sete 
| b 4 eae neneeeeee eee neeaeaenenenanane 
eee 


SETCLUSUB 15-SEP-1984 23:42:14 VAX/VMS Macro Vv04-00 Pa 
ybacb08 *SETSVALIDATE_QUORUM’ 4-$ eat yi eT By CLIUTL.SRCJSETCLUSUB.MAR; 1 3) 
-SBTTL *SETSVALIDATE_QUORUM' 
SETSVALIDATE_QUORUM 
FUNCTIONAL DESCRIPTION: 
Val Sete proposed value for quorum to ensure that it is neither 
too high nor too low, and pin it accordingly if it is out of range. 


Pass the validated quorum value to the connection manager for 
setting in the cluster. 
CALLING SEQUENCE: 


SETSVALIDATE_QUORUM ( quorum, new_quorum ) 


; At this point, we wait in user mode for 


a short time, then test to see 


3 INPUT PARAMETERS: 
3 Pi = new quorum value, or 0 
0 : 0, set according to (v+2)/2 formula. 
88 3: IMPLICIT INPUTS: 
0 71 ; Vv = CLUBSW_VOTES, total number of cluster votes 
00 72 ; OUTPUT PARAMETERS: 
0 73: new ,quorus = address of longword to receive actual value set 
0 74 ; IMPLICIT OUTPUTS: 
0 753 none 
0 76 ; COMPLETION CODES: 
0 77; ORMAL = quorum set 
0 78 ; SIDE EFFECTS: 
0 79 ; 
3 F {ata 
000C oS ENTRY SETSVALIDATE_QUORUM, “M<R2,R3> 
OA 3; This work must be done in kernel mode, and synchronized with the 
3 connection manager. 
Ss: SCMKRNL_S B* CHANGE _QUORUM, (AP) : Do this in kernel mode 
53 50 »v0 MOVL RO,R 3; Save status of request 
9 
9 
a 
9 
.] 


SSSSSssssssssssssssss 
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et ot ot ot = I IOOO 
TMOMMDOOOOOOOA> >>>> 


3; if the connection manager has completed its work. 
10S: SSETIMR_S - 3; Define a tick 
efn = MEXESC_SYSEFN = ; ...use system event eq 
daytim = B*ONE_TENT 3 «e-Shouldn't be perceptible 
2750 =«€9 Ot ee ie 3 any error will be program bug 
9 “efn = WEXESC_SYSEFN ; Wait a tick 
17 39 e9 BLBC RQ. 138 ; 206 
c9 ty 100 LBC R3,5 ; Retry the command (couldn't handle it befo 
41 101 SCMKRNL_S 6“TEST_QUORUM > Test. CLUBSV_ADJ_QUORUM 
C9 28 E9 rt 1 § LBC RO,1N$ : If LBC, not done 
08 BC BY 5 1 MOVL R2,@8 (AP) 3 Mew_quorum <= assigned value 
4 ! : RET 
50 oD 5 1 $ 15$: PUSHL RO : P1 = condition (assume no FAO args) 
00000000'GF 01 FB 1 CALLS #1,G*LIBSSIGNAL ; Signal the error. 
04 OOSE 108 RET ; Done 


19 
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He 110 CHANGE _QUORUM: 
set * Baa WORD : z Enery point 
51 O4 AC OD 6 11 MOVL (AP) ,R1 1 = new quorum (value) 
é \" } SETIPL B*IPL SYNCH : Make sure code won't page at SYNCH 
9 18 ; Tell phe ge es: mangers to set a new quorum. une connection manager 
69 118 3 must handle this since is done in a coordinated we bg across the 
24 i ; cluster. The quorum value is passed in R1 to this routine. 
69 118 ; Note that the connection manager is responsible for sanity-checking the 
69 : Y ; quorum value. 
Q0000000'GF 16 63 ' § : JSB G*CNXSCHANGE _QUORUM 3; Set new quorum value 
Ost : : 3 Done with the synchronized part. Return status in RO to user mode. 
O6F 1 6 , SETIPL #0 ; Out of synch 
04 0072 #1 RET : Back to user mode 


SETCLUSUB 
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1 
1 
$8 13> fest_quoRUM: 
0000 f : -"",WORD 0 
75 135 SETIPL ®*IPL_SYNCH 
52 00000000" ¢F 4 7 | BOVE GACLUSGL_CLUB.R2 
18 £0 1 8 BBS #CLUBSV_ADJ_QUORUM, = 
1¢ 5 i CLUBSL FLAGS (Re) ,- 
52 20 Ae ¢ 8 : 124 MOVZWL CLUBSW_QUORUM(R2) ,R2 
50 01 00 00 146 MOVL #1,RO 
0 : 143 10$: SETIPL #0 
04 09 144 RET 
92 145 
09 146 IPL_SYNCH: 
00000008 0092 14 .LONG IPLS$_SYNCH 
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: Subroutine to return new quorum in R2, or error if not yet set. 


Lock down page, synch with cnx mgr 

Get CLUB structure 

Assume new quorum not set yet. 

If BS, still in process of setting quorum 


Done...get new quorum. 
Flag success 
Desynchronize 

Done 


End of locked-down portion 
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0096 149 . END 


US ry 
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$$T 

CHANGE QUORUM 
CLUSGL = =f LUB 
CLUBSL-F LAGS 
CLUBSV_ADJ QUORUM 
CLUBSW" QUORUM 
CNXSCHANGE QUORUM 
EXESC Svorrn 

IPL$_ SYN 


IPL SYN YNCH 
LIBSSIGNAL 
-i5t" 
iPt 
Erte eae ~QU0RUM 
SYSSCMKRNL 
ean Pf be 


SYSSWAITF 
TEST QUORUM 


PSECT name 


Initialization 
Command processing 


Pass 
pyado’ table sort 
Symbol table output 


Psect synopsis output 
Cross-reference output 
Assembler run totals 
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SSS 
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porate re 
00000000 
etereree 
00000008 
eereenee 
Tita iiiy 
eerereer 


00000073 


00000000 
00000000 
00000096 


15-SEP- 
4-SEP-1 
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R 
x 
.. 
RG. 
GX 
GX 
GX 
R 0 
pomeeresocecaaase + 
; Psect synopsis ! 
n PSECT No. Attributes 
( 8. 69 ( 0.) NOPIC USR 


CON 
5 1.) NOPIC USR CON 
CON 


( 
( 158:3 >» 02 ¢ 2.) NOPIC  USR 
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Page faults cru tne Elapsed Tine 
19 00:0 :00.09 00: 0: :01. 23 
183 8: : 9-28 0: :19-6 
<9 0: : 0:00: : ; 
% 0000300; 0:00; 3 
1 0:00:00. 0:00: ¥ 
¢ 33888099 Ba:88:00- 6 
33 :00:05.74 0:00:31. 


The vorking *sf Limit was 900 pa 


1 bytes ( 


pages) of vtetuel @ memory 


were used to buffer the intermediate c 


th re were 20 pages of symbol table space al Located to hold 297 non-local and 6 
149 source lines were read in Pass 1, producing 16 object records in Pass 
8 pages of virtual memory were used to define 17 macros. 


1982 S8:i8:4¢ FOMIUTS Saese vet slOS mass PAM" 68, 


ABS LCL ae NOEXE NORD NOWRT NOVEC BYTE 
ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 


ar symbols. 
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Macro Library name 
$255$DUA28: SLgUTY Seta TUT -MLB;1 
$255S$DUA28: (SYS 
= 55SDUA28: CSYSLIBISTARLET. MLB; 2 
TOTALS (all Libraries) 


413 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SETCLUSUB/0BJ=0BJ$:SETCLUSUB MSRC$:SETCLUSUB/UPDATE=(ENH$: SETCLUSUB) +EXECML$/LIB+LIB$:CLIUTL/LIB 
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! Macro Library statistics ! 
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Macros defined 
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9 
14 
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